COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\magnification\magstephalf
C00005 ENDMK
C⊗;
\magnification\magstephalf
\input macro.tex
\def\today{\ifcase\month\or
  January\or February\or March\or April\or May\or June\or
  July\or August\or September\or October\or November\or December\fi
  \space\number\day, \number\year}
\baselineskip 14pt
\rm
\line{\sevenrm a44.tex[106,phy] \today\hfill}

\bigskip
\noindent{\bf Sample Program.}

\smallskip\halign{\qquad\qquad\lft{\tt #}\cr
program PinWheel(output);\cr
\qq  const Size = 10;\cr
\qq  var Col, Row : integer;\cr
begin  (* PinWheel *)\cr
\qq  for Row:= - Size to Size do begin\cr
\qq\qq for Col:= -Size to Size do\cr
\qq\qq\qq if (Col * Row * (ABS(Col) - ABS(Row))) >= 0 then write('*')\cr
\qq\qq\qq   else write(' ');\cr
\qq\qq   writeln;\cr
\qq   end;\cr
end.  (* PinWheel *)\cr}

\bigskip
{\baselineskip 5pt
\halign{\qquad\qquad\lft{\tt #}\cr
*\phantom{*********}***********\cr
**\phantom{********}********** \cr
***\phantom{*******}*********  \cr
****\phantom{******}********   \cr
*****\phantom{*****}*******    \cr
******\phantom{****}******     \cr
*******\phantom{***}*****      \cr
********\phantom{**}****       \cr
*********\phantom{*}***        \cr
************\cr
*********************\cr
\phantom{*********}************\cr
\phantom{********}***\phantom{*}*********\cr
\phantom{*******}****\phantom{**}********\cr
\phantom{******}*****\phantom{***}*******\cr
\phantom{*****}******\phantom{****}******\cr
\phantom{****}*******\phantom{*****}*****\cr
\phantom{***}********\phantom{******}****\cr
\phantom{**}*********\phantom{*******}***\cr
\phantom{*}**********\phantom{********}**\cr
***********\phantom{*********}*\cr}
}




\bigskip
\parindent0pt
\copyright 1984 Robert W. Floyd

First draft March 29, 1984

\bye